home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / JTEST.BAS < prev    next >
Encoding:
BASIC Source File  |  2000-09-26  |  599 b   |  31 lines
  1. $INCLUDE "REGNAMES.INC"
  2. COLOR 1,1
  3. CLS
  4. COLOR 12,1 : PRINT "Ende mit beliebiger Taste"
  5. WHILE INKEY$=""
  6.  CALL Joystick
  7.  LOCATE 8,1
  8.  COLOR 5,1  : PRINT "Feuertasten:  ";hex$(fire);"     "
  9.  COLOR 7,1  : PRINT "Joystick A   X=";x1;"  Y=";y1;"     "
  10.  COLOR 14,1 : PRINT "Joystick B   X=";x2;"  Y=";y2;"     "
  11. WEND
  12. SCREEN 0
  13. CLS
  14. ?"<< Taste >>"
  15. END
  16.  
  17. SUB Joystick SHARED
  18.  REG %AX,(&H84*256)
  19.  REG %DX,1
  20.  CALL INTERRUPT &H15
  21.  x1=REG(%AX)
  22.  y1=REG(%BX)
  23.  x2=REG(%CX)
  24.  y2=REG(%DX)
  25.  REG %AX,(&H84*256)
  26.  REG %DX,0
  27.  CALL INTERRUPT &H15
  28.  fire%=REG(%AX)
  29.  fire=PEEK(VARPTR(fire%)+0)
  30. END SUB
  31.